The X-Philes (2nd Revision)

home *** CD-ROM | disk | FTP | other *** search

/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / super_ma.01 < prev next >

Wrap

Text File | 1995-03-23 | 14KB | 458 lines

Subject: Super Master-Mind v2.01 ******************************* * SUPER MASTER-MIND V2.01 * * WRITTEN BY * * INGMAR (INGO) STROMBACK * * IN THE YEAR OF 1991 * * LULEA 1991-10-28 SWEDEN * ******************************* * THIS GAME IS SHAREWARE * ******************************* Small bug from V2.0 is fixed. This version of SUPER MASTER-MIND includes Full screen graphics, 8 colors and 5 holes making 32768 possible permutations. RULES The codemaker (your HP-48SX) hides a 5 Code Peg combination behind the shield marked 'MASTERMIND'. Your task is to duplicate the exact colours and positions of the hidden code. You may use any combination of the 8 colours. Use 2 or more Code Pegs of the same colour if you wish. When you are done with your guess press 'ENTER,. The calculator will now give you information by placing black and white Key Pegs in the holes alongside the Code Pegs, or by leaving holes vacant. A BLACK KEY PEG is placed by the calculator IN ANY of the 5 small holes for every Code Peg that has the right colour AND is in the right position. A WHITE KEY PEG is placed by the calculator IN ANY of the 5 small holes for every Code Peg that matches in colour, but not in position. For example, one white Key Peg is placed if only one red Code Peg is hidden and you have placed 2 or more red Code Pegs in the wrong positios. A VACANT HOLE is left for every Code Peg that is incorrect. !!!!!!! WHITE AND BLACK KEY PEGS POSITIONS HAS !!!!!!! !!!!!!! NOTHING TO DO WITH CODE PEGS POSITIONS !!!!!!! KEYS Use up/down arrow keys to move peg. Use key 1-8 to change colours. When you are done with your guess strike 'ENTER'. If you give up (OHH MY GOD, NO!!) strike 'BACKDEL') Turn sound on/off with '+/-' Future versions (if any) may be smaller and/or include Time limit, Score etc. RCL directory and use BYTES to get Size: 3655.5 bytes Checksum: # 4CB3h Copyrights (C) Ingmar Stromback 1991-10-28 If you want to contact me (ideas, bugs, etc), please mail to: ** d91-isk@sm.luth.se ** Below is both ASC and Downloadable format Cut below and download to your HP-48SX !!!! -------------------------------- CUT HERE ----------------------------------- %%HP: T(1)A(R)F(.); DIR start + RCLF 'F' STO -40 CF -56 CF CLEAR RNDZ DUP "00000" 4 'X' STO 12 'Y' STO MKSCRN 'B' STO 0 'V' STO 0 'S' STO 0 'N' STO 0 'R' STO { { } INGO V2.01 LULEA 1991 } TMENU GRPH ; up + Y 9 - 'Y' STO IF Y 12 < THEN 48 'Y' STO END 12 PICK Y 3 - 9 / DUP SUB OBJ DUP IF 0 THEN 'N' STO ELSE DROP END ; down + Y 9 + 'Y' STO IF Y 48 > THEN 12 'Y' STO END 11 PICK Y 3 - 9 / DUP SUB OBJ DUP IF 0 THEN 'N' STO ELSE DROP END ; NSTO + 'N' STO ; done + COMP OUT PLOPP DROP "00000" IF X 100 THEN 'R' INCR 'R' STO X 12 + 'X' STO 12 'Y' STO END ; quit + 3 DROPN B { # 75h # Ch } # 6h # 2Ah BLANK REPL 'B' STO 1 5 FOR I DUP I I SUB "M" SWAP + OBJ B # 75h 3 9 I * + RB 2 LIST ROT REPL 'B' STO NEXT B LCD { PRESS ANY KEY... } TMENU -1 WAIT F STOF { F V S B Y X N R } PURGE CLEAR 2 MENU 0 DOERR ; RNDZ + STD 1 5 START RAND 8 * 1 + IP STR NEXT + + + + ; GRPH + bild -1 WAIT DUP DUP2 DUP2 DUP2 DUP2 DUP2 DUP IF 52.1 == THEN sound END IF 25.1 == THEN up END IF 35.1 == THEN down END IF 82.1 == THEN 1 NSTO END IF 83.1 == THEN 2 NSTO END IF 84.1 == THEN 3 NSTO END IF 72.1 == THEN 4 NSTO END IF 73.1 == THEN 5 NSTO END IF 74.1 == THEN 6 NSTO END IF 62.1 == THEN 7 NSTO END IF 63.1 == THEN 8 NSTO END IF 55.1 == THEN 150 1 BEEP quit END IF 51.1 == THEN done END slut ; COMP + 1 5 FOR I DUP2 I I SUB SWAP I I SUB IF == THEN 'S' INCR 'S' STO I "Y" REPL SWAP I "X" REPL SWAP END NEXT IF S 5 == THEN DUP TONE quit END IF R 8 == THEN DUP 150 1 BEEP quit END 1 5 FOR I DUP2 I I SUB POS DUP CASE 0 == THEN DROP END 'V' INCR 'V' STO ROT SWAP "X" REPL SWAP END NEXT ; OUT + WHILE V 0 REPEAT M9 'V' DECR 'V' STO END WHILE S 0 REPEAT M0 'S' DECR 'S' STO END B ; PLOPP + { '3+12*R' 0 '9+12*R' 0 '6+12*R' 3 '3+12*R' 6 '9+12* R' 6 } 1 IFERR 1 5 START GETI EVAL RB ROT ROT GETI RB 4 ROLL SWAP 2 LIST 4 ROLL SWAP 5 ROLL REPL ROT ROT NEXT THEN ROT 'B' STO 1 DEPTH 4 - START SWAP DROP NEXT ELSE DROP2 'B' STO END 1000 .1 BEEP 800 .1 BEEP ; slut + IF N 0 THEN Y 3 - 9 / N STR REPL END SWAP DROP SWAP DUP ROT GRPH ; TONE + 440 .1 BEEP .01 WAIT 440 .1 BEEP .01 WAIT 440 .4 BEEP 600 .4 BEEP 700 .4 BEEP 880 .4 BEEP ; sound + IF -56 FC? 1 SAME THEN -56 SF ELSE -56 CF END ; bild + IF N 0 THEN B X RB Y RB 2 LIST "M" N STR + OBJ REPL 'B' STO END B X 8 + RB Y 3 + RB 2 LIST "GROB 1 1 10" OBJ GXOR LCD 0 'N' STO ; MKSCRN + # 83h # 38h BLANK 0 8 FOR I I 12 * 1 + RB # 0h 2 LIST MA REPL NEXT { # 6Dh # 0h } MB REPL { # 73h # Ah } MC REPL ; M1 GROB 7 7 C12214141422C1 M2 GROB 7 7 C1A294F794A2C1 M3 GROB 7 7 C1A255B655A2C1 M4 GROB 7 7 C122D5D5D522C1 M5 GROB 7 7 C122F7F7F722C1 M6 GROB 7 7 C1E3F7F7F7E3C1 M7 GROB 7 7 C1E3363636E3C1 M8 GROB 7 7 C16377147763C1 M9 GROB 3 3 705070 M0 GROB 3 3 707070 MA GROB 13 56 1001902110011001140110011001902110011001FFF110011001100114011E01140110011001100110011001100114011E01140110011001100110011001100114011E01140110011001100110011001100114011E01140110011001100110011001100114011E011401100110011001 MB GROB 22 7 FFFFF3D5DDD1545541D5DDC11554C0DD5C51FFFFF3 MC GROB 11 46 FF7010409F401440124014409F4010409F401A409F4010409E409A409B40104018409F40184010409F409A40984010409F401B409E4010409F401440124014409F4010409F4010409F40144012409F4010409F40984017401040FF70 END -------------------------------- CUT HERE ------------------------------------ And in ASC-format... -------------------------------- CUT HERE ----------------------------------- %%HP: T(1)A(D)F(.); "69A20FF709A100000020D43420E1B207C000E2000B0000FF7010409F40144012 4014409F4010409F401A409F4010409E409A409B40104018409F40184010409F 409A40984010409F401B409E4010409F401440124014409F4010409F4010409F 40144012409F4010409F40984017401040FF704D00020D42420E1B2093000700 0061000FFFFF3D5DDD1545541D5DDC11554C0DD5C51FFFFF36400020D41420E1 B20FE00083000D00001001902110011001140110011001902110011001FFF110 011001100114011E01140110011001100110011001100114011E011401100110 01100110011001100114011E01140110011001100110011001100114011E0114 0110011001100110011001100114011E011401100110011001CF00020D40320E 1B205100030000300007070702200020D49320E1B20510003000030000705070 2200020D48320E1B20D10007000070000C16377147763C1A200020D47320E1B2 0D10007000070000C1E3363636E3C1A200020D46320E1B20D10007000070000C 1E3F7F7F7E3C1A200020D45320E1B20D10007000070000C122F7F7F722C1A200 020D44320E1B20D10007000070000C122D5D5D522C1A200020D43320E1B20D10 007000070000C1A255B655A2C1A200020D42320E1B20D10007000070000C1A29 4F794A2C1A200020D41320E1B20D10007000070000C12214141422C1A200060D 4B4353425E460D9D20E1632E4A20510003800000000000000E4A205100083000 00000000000614E14B2A2C53A20A132D6E201094D6E201094339201000000000 000210EEDA19C2A276BA1B9691E4A20510000000000000000000ED2A2387C184 E2020D414AE8C1C423247A20E4A2051000D600000000000000E4A20510000000 000000000000B213084E2020D424AE8C147A20E4A20510003700000000000000 E4A2051000A000000000000000B213084E2020D434AE8C193632B2130C710040 2696C64640D9D20E16323CE2284E2010E44B2A2D9AE1AFE22D9D2084E2010248 4E201085B969184E201095B9691ED2A2387C1C2A2070000D484E2010E4B0BC17 6BA1B7FC1AE8C14563284E20102497632DCC02B21305DF2284E20102484E2010 85C53A276BA1B969184E2010953F2A276BA1B9691ED2A2387C1C2A20B1000742 5F42402130213021303B7FC14E4E1D85E14B2A24563284E2010E497632DCC029 3632B2130B41005037F657E64650D9D20E16323CE22339201000000000000659 063C19C2A2167E1AFE22D9D20339201000000000000659472C1B21305BF22D9D 203392010000000000006595D2C1B21305DF2293632B21302A0004045F4E4544 0D9D20E16323392020000000000004403392099900000000000104C5A1339208 990000000000010F17A13392020000000000004403392099900000000000104C 5A1339208990000000000010F17A133920200000000000044033920999000000 00000404C5A13392020000000000000603392099900000000000404C5A133920 20000000000000703392099900000000000404C5A13392020000000000008803 392099900000000000404C5A193632B2130E61004037C6574740D9D20E16323C E2284E2010E44B2A2D9AE1AFE22D9D2084E2010953F2A290DA1173A250FA184E 2010E4B0BC1AE8C1B21305DF22DBBF18DBF1DBBF178BF1E0CF184E2040742505 8493632B21304A0005005C4F4050550D9D20E163247A208BA203F2A233920100 000000000021084E201025EEDA176BA1B21304B2A28BA20173A2339201000000 00000021084E201025EEDA176BA1B21304B2A28BA20233A23392010000000000 0021084E201025EEDA176BA1B21303F2A28BA203F2A233920100000000000021 084E201025EEDA176BA1B2130233A28BA20173A233920100000000000021084E 201025EEDA176BA1B2130233A2B21309C2A2FD332D9D209C2A2D13A2301327C8 D1EB3A1B9691E0CF1E0CF17C8D1B9691803A25BCF1DBBF1ED2A2387C1803A25B CF1DBBF1D13A25BCF1AE8C1E0CF1E0CF1C4232B2130F1732D9D20E0CF1456328 4E20102497632DCC029C2A244CF1803A290DA130132DBBF18DBF1C4232B21305 BF22D9D203FBF14563284E20102497632DCC02B21305DF223392030000000000 000103392099900000000000104C5A1339202000000000000080339209990000 0000000104C5A193632B21307C20030F4554530D9D20E16323303284E2010654 B2A2D9AE1D5032D9D2084E2020D4934563284E20106597632AA9024563284E20 106597632DCC02B2130496323303284E2010354B2A2D9AE1D5032D9D2084E202 0D4034563284E20103597632AA9024563284E20103597632DCC02B2130496328 4E20102493632B21305F0004034F4D40540D9D20E16329C2A2D13A20A132D6E2 010942ABF1D6E201094D6E201094C58C1DBBF1D6E201094D6E201094C58C13CE 22279E1AFE22D9D204563284E201035976324F8024563284E20103597632DCC0 2D6E201094C2A207000095AE8C1DBBF1D6E201094C2A207000085AE8C1DBBF1B 21305DF22C42323CE2284E201035D13A2279E1AFE22D9D2078BF184E204045F4 E45484E204017579647B21305DF223CE2284E201025C53A2279E1AFE22D9D207 8BF13392020000000000005109C2A24C5A184E204017579647B21305DF229C2A 2D13A20A132D6E2010942ABF1D6E201094D6E201094C58C14BAC178BF1D8732D 9D204B2A2279E18A7328DBF15DF224563284E201065976324F8024563284E201 06597632DCC02E0CF1DBBF1C2A207000085AE8C1DBBF1B21305DF22C42329363 2B2130F6200407425058440D9D20E163284E20402696C646683A2F17A178BF12 ABF12ABF12ABF12ABF12ABF178BF13CE22339201000000000001250279E1AFE2 284E205037F657E6465DF223CE22339201000000000001520279E1AFE2284E20 2057075DF223CE22339201000000000001530279E1AFE2284E204046F677E65D F223CE22339201000000000001280279E1AFE22D9D209C2A284E2040E43545F4 B21305DF223CE22339201000000000001380279E1AFE22D9D20ED2A284E2040E 43545F4B21305DF223CE22339201000000000001480279E1AFE22D9D203F2A28 4E2040E43545F4B21305DF223CE22339201000000000001270279E1AFE22D9D2 0803A284E2040E43545F4B21305DF223CE22339201000000000001370279E1AF E22D9D20D13A284E2040E43545F4B21305DF223CE22339201000000000001470 279E1AFE22D9D20233A284E2040E43545F4B21305DF223CE2233920100000000 0001260279E1AFE22D9D20743A284E2040E43545F4B21305DF223CE223392010 00000000001360279E1AFE22D9D20C53A284E2040E43545F4B21305DF223CE22 339201000000000001550279E1AFE22D9D203392020000000000005109C2A24C 5A184E204017579647B21305DF223CE22339201000000000001150279E1AFE22 84E204046F6E6565DF2284E204037C6574793632B21302E3004025E444A540D9 D20E1632684C19C2A2D13A2301329B1C1C53A2EEDA19C2A276BA1D6BB1B0BC1C 423276BA176BA176BA176BA193632B213007000401757964740D9D20E16323F2 A246CF184E20102447A20E4A20510005700000000000000E4A2051000C000000 000000000B2130E4A20510006000000000000000E4A2051000A2000000000000 00614E1AE8C14563284E20102497632DCC029C2A2D13A20A132D6E20109478BF 1D6E201094D6E201094C58C1C2A2070000D4DBBF176BA1B7FC184E201024E4A2 05100057000000000000003F2A2173A2D6E201094EEDA176BA1B9691ED2A2387 C1E0CF1AE8C14563284E20102497632DCC02C423284E201024D85E147A2084E2 050052554353584E203014E49584E2060B45495E2E2E2B2130D5112683A2F17A 184E201064F76C147A2084E20106484E20106584E20103584E20102484E20109 584E20108584E2010E484E201025B2130EFE02BECF1ED2A2691124B2A2933A19 3632B2130262004046F6E65640D9D20E163284E204034F4D40584E2030F45545 84E205005C4F405058DBF1C2A20F000003030303033CE2284E20108533920200 0000000000010D9AE1AFE22D9D204563284E201025976324F8024563284E2010 2597632DCC0284E20108533920100000000000021076BA14563284E201085976 32DCC023392010000000000002104563284E20109597632DCC02B21305DF2293 632B2130A310040E43545F440D9D20E16324563284E2010E497632DCC0293632 B2130830004046F677E640D9D20E163284E201095173A276BA14563284E20109 597632DCC023CE2284E201095339201000000000000840D5CE1AFE22D9D20339 2010000000000002104563284E20109597632DCC02B21305DF22339201000000 000000110A9CF184E2010953F2A290DA1173A250FA178BF1C58C1B7FC178BF13 CE224B2A2D9AE1AFE22D9D204563284E2010E497632DCC02B21305BF228DBF15 DF2293632B21304410020570720D9D20E163284E201095173A290DA14563284E 20109597632DCC023CE2284E201095339201000000000000210EBBE1AFE22D9D 203392010000000000008404563284E20109597632DCC02B21305DF223392010 00000000000210A9CF184E2010953F2A290DA1173A250FA178BF1C58C1B7FC17 8BF13CE224B2A2D9AE1AFE22D9D204563284E2010E497632DCC02B21305BF228 DBF15DF2293632B21300410050374716274750D9D20E1632916C14563284E201 06497632DCC023392010000000000000495D2C13392010000000000006595D2C 1BECF184E204025E444A578BF1C2A20F00000303030303803A24563284E20108 597632DCC023392010000000000002104563284E20109597632DCC0284E2060D 4B4353425E44563284E20102497632DCC024B2A24563284E20106597632DCC02 4B2A24563284E20103597632DCC024B2A24563284E2010E497632DCC024B2A24 563284E20102597632DCC0247A2047A20B213084E204094E474F484E20506523 E2031384E2050C455C45414339203000000000019910B2130D511284E2040742 5058493632B21303BC4" -------------------------------- CUT HERE -----------------------------------